home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Software Vault: The Gold Collection
/
Software Vault - The Gold Collection (American Databankers) (1993).ISO
/
cdr15
/
rmastr36.zip
/
DEMO1.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1993-06-17
|
876b
|
38 lines
(* ************************************************************ *)
(* Demo1.pas For Turbo Pascal *)
(* *)
(* TGCAR.XGF was created by saving the image as TP/TC (Binary) *)
(* from Raster Master. *)
(* ************************************************************ *)
Program Demo1;
Uses Crt,Dos,Graph;
Var
Gd, Gm : Integer;
Img : Pointer;
Size : Word;
F : File;
Begin
Assign(F,'TGCAR.XGF');
Reset(F,1);
Size:=FileSize(F);
GetMem(Img,Size);
BlockRead(F,Img^,Size);
Close(F);
Gd:=VGA;
Gm:=VGALo;
InitGraph(Gd,Gm,'c:\tp');
SetFillStyle(SolidFill,Blue);
Bar(0,0,GetMaxX,GetMaxY);
PutImage(0,0,Img^,NormalPut);
Repeat Until KeyPressed;
FreeMem(Img,Size);
CloseGraph;
end.